home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
umich
/
tex
/
td187src.lzh
/
DIVERSES.D
< prev
next >
Wrap
Text File
|
1991-12-14
|
1KB
|
47 lines
DEFINITION MODULE Diverses;
FROM Types IMPORT Block;
PROCEDURE max(a, b : INTEGER) : INTEGER;
PROCEDURE min(a, b : INTEGER) : INTEGER;
PROCEDURE round(real : LONGREAL) : INTEGER;
(* Gerundeten Wert *)
PROCEDURE BlockIntersect(a, b : Block ; VAR bsect : Block) : BOOLEAN ;
(* liefert in <bsect> die Schnittfläche von <a> und <b>,
desweiteren TRUE wenn Schnitt vorlag *)
VAR DialCentered : BOOLEAN ; (* Zentriert oder an Mousepos *)
PROCEDURE Alert (def: INTEGER; str: ARRAY OF CHAR): INTEGER;
(* Alert via mtAlerts *)
PROCEDURE NumAlert (alertnum, def: INTEGER) : INTEGER;
(* Alert via mtAlerts. Alertstr wird aus RSC-File gelesen. *)
PROCEDURE GetHelpText(num : INTEGER; VAR txt : ARRAY OF CHAR);
PROCEDURE GetFSelText(num : INTEGER; VAR txt : ARRAY OF CHAR);
PROCEDURE MouseOn;
PROCEDURE MouseArrow;
PROCEDURE MouseCursor;
PROCEDURE MouseBusy;
PROCEDURE MouseFinger;
PROCEDURE MouseHand;
PROCEDURE MouseThincross;
PROCEDURE MouseThickcross;
PROCEDURE MouseOutline;
(* Diese Routinen schalten die Maus mit dem jeweiligen Bild EIN *)
PROCEDURE MouseOff;
(* Schaltet die Maus AUS *)
PROCEDURE ForceMouseOff;
PROCEDURE ForceMouseOn;
(* Schaltet die Maus auf jeden Fall ein, egal wieviele
MouseOn/MouseOff gerade geschachtelt sind. *)
END Diverses.